home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLPANSQ2.SC < prev    next >
Text File  |  1992-03-14  |  937b  |  41 lines
  1. ;--------------FLPANSQ1.SC
  2. STYLE ATTRIBUTE 30
  3. CLEAR
  4. STILLATIT=TRUE
  5. WHILE STILLATIT
  6.       CLEARALL
  7.       CLEAR
  8.       @ 12,4
  9.       ?? "ENTER DISK DESCRIPTION TO LOOK UP"
  10.       @ 14,4
  11.       ?? "OR JUST PRESS ENTER TO RETURN TO MENU  : "
  12.       ACCEPT "A30" TO LOOKUP
  13.       LOOKUP=UPPER(LOOKUP)
  14.       IF ISBLANK(LOOKUP) then
  15.           @ 24,10 CLEAR EOL
  16.           ?? "...RETURNING TO MENU.."
  17.           QUITLOOP
  18.       ENDIF
  19.       @ 24,1
  20.       ?? "SETTING POINTER TO " + LOOKUP
  21.       MENU{ASK}{ANSWER} CHECK
  22.       [DISK DESCRIPTION] = LOOKUP
  23.       DO_IT!
  24.       MENU{VIEW}{ANSWER}
  25.       IF (NRECORDS("ANSWER") = 0) THEN
  26.          BEEP
  27.          @ 24,1 CLEAR EOL
  28.          ?? "THERE IS NO " + LOOKUP + " LISTED"
  29.          SLEEP 5000
  30.          PLAY "QUERFLOP"
  31.          LOOP
  32.       ENDIF
  33.       EDITKEY
  34.       WAIT TABLE
  35.            PROMPT "PRESS F2 WHEN DONE"
  36.            UNTIL "F2"
  37.       DO_IT!
  38. ENDWHILE
  39. CLEAR
  40. RETURN
  41.